home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 June / Software of the Month Club 1998 June.iso / mac / Business / Hi's Universal Saver / Dialog Director v0.6 / Examples / Timeout.as < prev   
Encoding:
Text File  |  1998-04-13  |  715 b   |  19 lines  |  [TEXT/ToyS]
  1. set dVals to dd auto dialog {size:[320, 95], contents:[┬
  2.     {class:push button, bounds:[250, 65, 310, 85], name:"OK"}, ┬
  3.     {class:push button, bounds:[170, 65, 230, 85], name:"Cancel"}, ┬
  4.     {class:static text, bounds:[10, 10, 310, 10 + 32] ┬
  5.         , contents:"This dialog will timeout at " & ((current date) + 10)'s time string} ┬
  6.         ], timeout after:10}
  7.  
  8. if dVals's item 1 then
  9.     set msg to "The ╥OK╙ button was pressed."
  10. else if dVals's item 2 then
  11.     set msg to "The ╥Cancel╙ button was pressed."
  12. else
  13.     set msg to "The dialog timed-out."
  14. end if
  15.  
  16. dd auto dialog {size:[320, 95], contents:[┬
  17.     {class:push button, bounds:[250, 65, 310, 85], name:"OK"}, ┬
  18.     {class:static text, bounds:[10, 10, 310, 10 + 32], contents:msg} ┬
  19.         ]}